home *** CD-ROM | disk | FTP | other *** search
- /****************************************************************/
- /* Main=TAT2TXT.C & TAPCUTER.C */
- /* 拡張子チェックルーチン */
- /* 1992/09/11 Ver.0.20 By TETU */
- /****************************************************************/
- #include <stdio.h>
- #include <string.h>
- int
- safix(char *infile_name,char *outfile_name)
- {
- int i,len;
- len =strlen(infile_name);
- strcpy(&outfile_name[0],&infile_name[0]);
- for(i=1;i < 5;i++)
- {
- if(infile_name[len-i] == '.')
- break;
- }
- if(i == 5)
- strcat(&outfile_name[0],".TAP");
- return(i);
- }
-